
Modifications to the program can 
extend its usefulness. Another count vector 

sorted by alphabet ot by device (all 8080s, 
etc.). And a little math at the end would 



of computers in the club. 

Statement 50 shows the sn-.ny ullv and 




Edward E. Hnghat □ 



10 REM • SURVEY 

1 2 REM. TABULATE AND REPORT SURVEY RESULTS 
14 REM. ED HUGHOT 
16 REM . 02/26/77 
30 CLEAR 930 

50 DIM M$<20),Tt20>.P<20> 

B0 PRINT FRE< I ) 

100 PRINT:PRINT:PRINT 

110 INPUT "NAME OF DESCR IPTOR" IH1 $ 

120 INPUT " NAME OF DATA VAR I ABLE" ;H2 $ 

130 PRINT " ENTER DATA AS: VI. V2" 

140 PRINT 

145 1=0 

148 S=0 

150 INPUT VS.V 

160 IF LEFTKVS.l >="$" THEN 300 

170 1=1*1 

180 MSCI>=VS 

190 T(I)=V 

200 S = S*V 

250 GOTO 150 

290 REM 

300 N=I 

310 FOR 1=1 TO N 

320 P(I)=I 

330 NEXT I 

340 FOR 1=2 TO N 

350 IF T(PCI)X=T<P<I-11) THEN 390 

360 t)=P(I) 

365 P(I)=P<I-1 ) 

370 P(I-1 >=d 

380 GOTO 340 

390 NEXT I 

510 PRINT:PRINT:PRINT:PRINT 

520 PR I NTTAB ( 5 > i 

522 PRINT Hl$i 

530 PRI NTTAB ( 3 1 )J 

532 PRINT H2S 

540 PRI NTTAB (31). 

542 PRINT "TOTAL" ; 

550 PRINTTABC41 ) ; 

552 PRINT "PER CENT" 

600 FOR 1=1 TO N 

610 PRINT 1J 

620 PR 1 NTTAB C 5 ) i 

622 PRINT M$(P(I))i 

623 Q=T<P<I>) 
640 PRI NTTAB (31 )J 
642 PRINT a; 

650 PRI NTTAB( 41 > i 

652 PRINT a+100/S 

690 NEXT I 

700 PRINT 

710 PRI NTTAB ( 3 1 ) J 

712 PRINT S 

999 END 

OK 
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NAME OF DESCRIPTOR ? MANUFACTURER 
NAME OF DATA VARIABLE? SYSTEMS IN OPERATION 
ENTER DATA AS! Ml .V2 

? I MSA I -8080 » 43 

? ALTAIR-8800.22 

? PTC SOL. 5 

? P0LYM0RPHIC-88.5 

? OTHER 8080 SYSTEMS* 1 9 

? APPLE 6502.6 

? SHPERE.l 

? AMI BOARD. 20 

? JOLT. 5 

? SW TECH PRODUCTS.*! 
? KIM. 4 

? OTHER 6800 .650--- -/6502 SYSTEMS. 9 

? F8.5 

? £80.9 

? 8008.9 

? TTL.I 

? BIT SLICE. 1 

? RCA 1802.6 

? LSI -1 1 .3 

? OTHERS. 5 




MANUFACTURER 

IMSAI -8080 

ALTAIR-8800 

AMI BOARD 

OTHER 8080 SYSTEMS 

OTHER 6800/6502 SYSTEMS 

Z80 

8008 

APPLE 6502 

RCA 1802 

PTC SOL 

POLYMORPHIC-SB 

JOLT 

F8 

OTHERS 



SW TECH PRODUCTS 

KIM 

LSI -1 I 

SHPERE 

TTL 

BIT SLICE 



SYSTEMS IN OPERATION 

TOTAL PER CENT 

43 23.62 64 

22 12.08 79 

20 10.989 

19 10.4396 

9 4.94506 

9 4.94506 

9 4.94506 

6 3.2967 

6 3.2967 



74725 
74 72 5 
1 9 78 
19 78 
64835 
549451 
549451 
549451 



{output] j 

JlL] 
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